home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / CONOPTV.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-03  |  8.0 KB  |  255 lines
  1. VERSION 4.00
  2. Begin VB.Form ConnectionOptionsForm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Connection Options"
  6.    ClientHeight    =   1875
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   7065
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   2280
  21.    Left            =   1035
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   1875
  24.    ScaleWidth      =   7065
  25.    Top             =   1140
  26.    Width           =   7185
  27.    Begin VB.TextBox SmtpHost 
  28.       Appearance      =   0  'Flat
  29.       BeginProperty Font 
  30.          name            =   "MS Sans Serif"
  31.          charset         =   0
  32.          weight          =   400
  33.          size            =   8.25
  34.          underline       =   0   'False
  35.          italic          =   0   'False
  36.          strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   285
  39.       Left            =   4440
  40.       TabIndex        =   4
  41.       Top             =   165
  42.       Width           =   2400
  43.    End
  44.    Begin VB.CommandButton Cancel 
  45.       Appearance      =   0  'Flat
  46.       BackColor       =   &H80000005&
  47.       Cancel          =   -1  'True
  48.       Caption         =   "Cancel"
  49.       BeginProperty Font 
  50.          name            =   "MS Sans Serif"
  51.          charset         =   0
  52.          weight          =   400
  53.          size            =   8.25
  54.          underline       =   0   'False
  55.          italic          =   0   'False
  56.          strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   315
  59.       Left            =   2010
  60.       TabIndex        =   6
  61.       Top             =   1350
  62.       Width           =   900
  63.    End
  64.    Begin VB.CommandButton Ok 
  65.       Appearance      =   0  'Flat
  66.       BackColor       =   &H80000005&
  67.       Caption         =   "Ok"
  68.       Default         =   -1  'True
  69.       BeginProperty Font 
  70.          name            =   "MS Sans Serif"
  71.          charset         =   0
  72.          weight          =   400
  73.          size            =   8.25
  74.          underline       =   0   'False
  75.          italic          =   0   'False
  76.          strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   315
  79.       Left            =   990
  80.       TabIndex        =   5
  81.       Top             =   1350
  82.       Width           =   900
  83.    End
  84.    Begin VB.TextBox PopPassword 
  85.       Appearance      =   0  'Flat
  86.       BeginProperty Font 
  87.          name            =   "MS Sans Serif"
  88.          charset         =   0
  89.          weight          =   400
  90.          size            =   8.25
  91.          underline       =   0   'False
  92.          italic          =   0   'False
  93.          strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   285
  96.       Left            =   1000
  97.       TabIndex        =   3
  98.       Top             =   825
  99.       Width           =   2400
  100.    End
  101.    Begin VB.TextBox PopUserName 
  102.       Appearance      =   0  'Flat
  103.       BeginProperty Font 
  104.          name            =   "MS Sans Serif"
  105.          charset         =   0
  106.          weight          =   400
  107.          size            =   8.25
  108.          underline       =   0   'False
  109.          italic          =   0   'False
  110.          strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   285
  113.       Left            =   1000
  114.       TabIndex        =   2
  115.       Top             =   495
  116.       Width           =   2400
  117.    End
  118.    Begin VB.TextBox PopHost 
  119.       Appearance      =   0  'Flat
  120.       BeginProperty Font 
  121.          name            =   "MS Sans Serif"
  122.          charset         =   0
  123.          weight          =   400
  124.          size            =   8.25
  125.          underline       =   0   'False
  126.          italic          =   0   'False
  127.          strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   285
  130.       Left            =   1000
  131.       TabIndex        =   1
  132.       Top             =   165
  133.       Width           =   2400
  134.    End
  135.    Begin VB.Label Label6 
  136.       Alignment       =   1  'Right Justify
  137.       Appearance      =   0  'Flat
  138.       BackColor       =   &H00C0C0C0&
  139.       Caption         =   "SMTP Host:"
  140.       BeginProperty Font 
  141.          name            =   "MS Sans Serif"
  142.          charset         =   0
  143.          weight          =   400
  144.          size            =   8.25
  145.          underline       =   0   'False
  146.          italic          =   0   'False
  147.          strikethrough   =   0   'False
  148.       EndProperty
  149.       ForeColor       =   &H80000008&
  150.       Height          =   300
  151.       Left            =   3480
  152.       TabIndex        =   9
  153.       Top             =   195
  154.       Width           =   900
  155.    End
  156.    Begin VB.Label Label3 
  157.       Alignment       =   1  'Right Justify
  158.       Appearance      =   0  'Flat
  159.       BackColor       =   &H00C0C0C0&
  160.       Caption         =   "Password:"
  161.       BeginProperty Font 
  162.          name            =   "MS Sans Serif"
  163.          charset         =   0
  164.          weight          =   400
  165.          size            =   8.25
  166.          underline       =   0   'False
  167.          italic          =   0   'False
  168.          strikethrough   =   0   'False
  169.       EndProperty
  170.       ForeColor       =   &H80000008&
  171.       Height          =   300
  172.       Left            =   45
  173.       TabIndex        =   8
  174.       Top             =   840
  175.       Width           =   900
  176.    End
  177.    Begin VB.Label Label2 
  178.       Alignment       =   1  'Right Justify
  179.       Appearance      =   0  'Flat
  180.       BackColor       =   &H00C0C0C0&
  181.       Caption         =   "User Name:"
  182.       BeginProperty Font 
  183.          name            =   "MS Sans Serif"
  184.          charset         =   0
  185.          weight          =   400
  186.          size            =   8.25
  187.          underline       =   0   'False
  188.          italic          =   0   'False
  189.          strikethrough   =   0   'False
  190.       EndProperty
  191.       ForeColor       =   &H80000008&
  192.       Height          =   300
  193.       Left            =   45
  194.       TabIndex        =   7
  195.       Top             =   525
  196.       Width           =   900
  197.    End
  198.    Begin VB.Label Label1 
  199.       Alignment       =   1  'Right Justify
  200.       Appearance      =   0  'Flat
  201.       BackColor       =   &H00C0C0C0&
  202.       Caption         =   "POP Host:"
  203.       BeginProperty Font 
  204.          name            =   "MS Sans Serif"
  205.          charset         =   0
  206.          weight          =   400
  207.          size            =   8.25
  208.          underline       =   0   'False
  209.          italic          =   0   'False
  210.          strikethrough   =   0   'False
  211.       EndProperty
  212.       ForeColor       =   &H80000008&
  213.       Height          =   300
  214.       Left            =   45
  215.       TabIndex        =   0
  216.       Top             =   195
  217.       Width           =   900
  218.    End
  219. Attribute VB_Name = "ConnectionOptionsForm"
  220. Attribute VB_Creatable = False
  221. Attribute VB_Exposed = False
  222. Option Explicit
  223. Private Sub Cancel_Click()
  224.    Unload Me
  225.    End Sub
  226. Private Sub Form_Load()
  227.    PopHost.Text = g_PopHost
  228.    PopUserName.Text = g_PopUserName
  229.    PopPassword.Text = g_PopPassword
  230.    SmtpHost.Text = g_SmtpHost
  231.    End Sub
  232. Private Sub Ok_Click()
  233.    g_PopHost = PopHost.Text
  234.    g_PopUserName = PopUserName.Text
  235.    g_PopPassword = PopPassword.Text
  236.    g_SmtpHost = SmtpHost.Text
  237.    Unload Me
  238.    End Sub
  239. Private Sub PopHost_GotFocus()
  240.    PopHost.SelStart = 0
  241.    PopHost.SelLength = Len(PopHost.Text)
  242.    End Sub
  243. Private Sub PopPassword_GotFocus()
  244.    PopPassword.SelStart = 0
  245.    PopPassword.SelLength = Len(PopPassword.Text)
  246.    End Sub
  247. Private Sub PopUserName_GotFocus()
  248.    PopUserName.SelStart = 0
  249.    PopUserName.SelLength = Len(PopHost.Text)
  250.    End Sub
  251. Private Sub SmtpHost_GotFocus()
  252.    SmtpHost.SelStart = 0
  253.    SmtpHost.SelLength = Len(PopHost.Text)
  254.    End Sub
  255.